function [R,C,sens]=celdas_skhpgigu1(wp,qp,g,wz,seteados)
%Seteo R1
%LLAMAR SI Q < 0.5
    R=ones(2,1);
    C=ones(2,1);
    
    R(1)=seteados(1);
    R(2)=R(1);
    a=1;
    b=-1/(R(1)*wp*qp);
    c=1/((R(1))^2*(wp)^2);
    C(2)=(-b+sqrt(b^2-4*a*c))/(2*a);
    C(1)=1/((wp)^2*(R(1))^2*C(2));
    sens=ones(4,4);
    sens(:,1)=SenSallenHPGigu1W0(R(1),R(2),C(1),C(2));
    sens(:,2)=SenSallenHPGigu1Q(R(1),R(2),C(1),C(2));
    sens(:,3)=SenSallenHPGigu1G(R(1),R(2),C(1),C(2));
    sens(:,4)=[0,0,0,0];    
end

function [senG]=SenSallenHPGigu1G(r1,r2,c1,c2)
  senG(1)=0;                                            %r1
  senG(2)=0;                                            %r2
  senG(3)=0;                                            %c1
  senG(4)=0;                                            %c2
end

function [senQ]=SenSallenHPGigu1Q(r1,r2,c1,c2)

senQ(1) = -r1*((c1 + c2)/((c1*r1 + c2*r1)^2*(1/(c1*c2*r1*r2))^(1/2)) - 1/(2*c1*c2*r1^2*r2*(c1*r1 + c2*r1)*(1/(c1*c2*r1*r2))^(3/2)))*(c1*r1 + c2*r1)*(1/(c1*c2*r1*r2))^(1/2);
senQ(2) = 1/(2*c1*c2*r1*r2*(1/(c1*c2*r1*r2)));
senQ(3) = -c1*(c1*r1 + c2*r1)*(r1/((c1*r1 + c2*r1)^2*(1/(c1*c2*r1*r2))^(1/2)) - 1/(2*c1^2*c2*r1*r2*(c1*r1 + c2*r1)*(1/(c1*c2*r1*r2))^(3/2)))*(1/(c1*c2*r1*r2))^(1/2);
senQ(4) = -c2*(c1*r1 + c2*r1)*(r1/((c1*r1 + c2*r1)^2*(1/(c1*c2*r1*r2))^(1/2)) - 1/(2*c1*c2^2*r1*r2*(c1*r1 + c2*r1)*(1/(c1*c2*r1*r2))^(3/2)))*(1/(c1*c2*r1*r2))^(1/2);

end

function [senw0]=SenSallenHPGigu1W0(r1,r2,c1,c2)

senw0(1) = -1/(2*c1*c2*r1*r2*(1/(c1*c2*r1*r2)));
senw0(2) = -1/(2*c1*c2*r1*r2*(1/(c1*c2*r1*r2)));
senw0(3) = -1/(2*c1*c2*r1*r2*(1/(c1*c2*r1*r2)));
senw0(4) = -1/(2*c1*c2*r1*r2*(1/(c1*c2*r1*r2)));

end